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MODULE MAILSREAD( Brite "DISPLAY THE CURRENT MESSAGE’ 
IDENT = 'V04-000' ) = 


BEGIN 


' 
PRESSE SSSSLESS SS ET SSE TET ST TTC PTC CCST CCT CCST CCC ccc cece ccc ccc cece ccc ci iiiie | 
' * 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


; 1 901 

3 ¢ Oe 

; 8 1 

$ 4 0004 1 

3 5 005 1 

; 6 O08 1 

; 7? 007 1 

; 8 0008 1 . 
3 0009 1 * 
; 19 Bag : ws ALL RIGHTS RESERYED. sd 
; : & 
; if pore 1 !* THIS SOFTWARE IS ieee ree tee LICENSE AND MAY BE USED AND COPIED * 
are 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 0014 1 !* INCLUSION OF THE ABOVE Spd NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 15 0015 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i Bote : 1° TRANSFERRED. * 
3 't & 
> 19 0019 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 B05: : 7 CORPORATION. * 
Z '® ® 
H $6 $098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR -, | mead OF ITS * 
: 24 bese 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
tat 0025 1 !* * 
;: = 0026 1 !* * 
4 27 0027 1 Vee RARER EAE AAA AAA AA RAAT REET ERE AERA EAE E KEE 
; & 0028 1! 

; $3 OO? 1 

: 0 0030 1 !++ 

: H it : FACILITY: VAX/VMS MAIL UTILITY 

; 35 0038 ' ABSTRACT: DISPLAY THE TEXT IN THE CURRENT MAIL MESSAGE. 

3 $2 ot ! : ENVIRONMENT: NATIVE/USER MODE 

; 37 0037 1 ! AUTHOR: LEN KAWELL, CREATION DATE: 21-APR-1978 

i. 0038 1! 

; 39 0039 1 ! MODIFIED By: 

; 40 0040 1! 

3; $1 0041 1! v03-014 ROPOO18 Robert Posniak 3-JUL-1984 

: 42 9h 1! Ensure that new mail count does not get 

: 43 0045 1! decremented if not reading from default 

3 rt} bee : message file. 

: 646 0046 1! v03-013 ROPOOOS Robert Posniak 8-JUN-1984 

: «47 0047 1! Ensure that read terminates when message ends 

3 $8 apes : at bottom of scope. 

;. = C080 1! v03-012 BLS0280 Benn Schreiber 4-MAR-1984 

; 2) Boe5 ' Form feed as last character was producing odd behavior. 

; 3g 55 1! v03-011 BLS0255 Benn Schreiber 28-Dec-1983 

; ee O38 ' New global flags 

; 2 8028 . 7 v03-010 BLS0246 Benn Schreiber 8-Nov-1983 

TR 057 1! Change interface to decrement new mail count. Remove 
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; $ 335 } } translation table and put in dynamic memory to shrink image. 
: 60 060 1} V03-009 BLS0235 Benn Schreiber -Aug- 

; 96] 1} Remove cr/lf filtering for isam files, is Pe 

; 8588 : } by the get Line routine. 
; 064 1! v03-008 BLS0229 Benn Schreibe 16-Jul- 

: o? ns ! Change new mail count handling. sfh-eanlis it 

; 067 1! v03-007 BLS0224 Benn Schreibe -Jun- 

: +4 Bpe8 ! Clear held record if reading new seseeens. spa ies 

: 70 0070 : } v03-006 BLS0220 Benn Schreiber 30-Apr-1983 | 
0072 1 | Use a translate tablea und MOVTC to do the filtering 

; 0073 1! v03-005 BLS0217 Benn Schreiber 13-Apr-1983 

: bore : Filter CSI on output. Move folder name to right corner. 

; 0076 1} v03-004 BLS0214 Benn Schreiber 7-Mar-198 

: as Bare : } Ensure that isam read always gets FROM Line wreheut 

+5 0079 1 i date in it. Filter “N and *O (S1/SO) from output also. 

; 0080 1} v03-003 BLS0211 Benn Schreiber 13-Mar-1983 

: aie : Support ISAM mail files. Handle CTRL/C éur ine displaying 
008s 1 i the message. Filter out the ESCAPE character from text. 

; 0084 1! v03-002 BLS0189 Benn Schreiber 18-Oct- 

: Bees : Set flag that message has been read = 

; 0087 1! v03-001 8LS0177 Benn Schreibe 1-Jun-1 

: i494 : Use MAIL$G_OUTCHAR rather than INPCHAR inane 

; 0090 1 
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PAASAAAAAOOCOMMIVIVIVIVIVVIUIVIE FEES OOWODOODOOOO 


PIPIPIPIPYPIPIPIPPIPIPIPINININININININININNININPINININIPINPINYIPININPININININIVOOOCOCOC00O 
=—OOONO UNE WID $ O OD NOAUE WIN 0 ODNAUE WN 0 ODONA UNE WN OOO NAUNOONOUS Wr 
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CODD OOODOOOON NNN NNN SY 


Ronorononornonofry 


THE CURRENT MESSAGE 
i TABLE OF CONTENTS: 


; INCLUDE FILES: 


LIBRARY Bb PE EE cl 


REQUIRE ‘SRC$:MAILREQ'; 
LIBRARY 'LIBS:MAILDEF'; 


! 
i MACROS: 
EQUATED SYMBOLS: 


1 
| OWN STORAGE: 
OWN 
DYN_DESC : DYN_DESC_DECL; 


; EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
L1B 


MAILSINFO_T MSG, 
SNEW_AS 
MAILS$PUT~OUTPUT; 
EXTERNAL 


LINES, 

SG : REF $BBLOCK, 
OLDER : $BBLOCK 
FILE: BL 

NUM: LONG, 

“STS 
RSI2: WORD, 
RADR: 


MAI 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 


OWN 
TRANSTABLE : REF VECTORC,BYTE); 


Bens ss Rs ee be Dee Bas bee ee be tet be 


BLOCKE BYTE), 


: LONG, 
RNAME: BLOCKC BYTE); 


‘Local dynamic string 


Allocate virtual memory 
Erase the screen 

Decrement new mail count 

Get next message record 

Get text for signal value 
Get next ISAM message record 
Get info about ISAM ms 
Test if message is ‘'new’ 
Put to SYSSOUTPUT 


Rab for mail file i/o 
Control {lags 

Transition for GET_I_MSG. 
Output device dependent info 
Number of Lines per page 
Current message descriptor 
Current ISAM folder name 
Current message file name 
Current message number 
message reading status 
Current message record size 
Current message record addr 
User's usernname 


4 | 
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3 149 3 } GLOBAL ROUTINE MAILSFILTER_OUTPUT (DESC) = 

: 3 % FUNCTIONAL DESCRIPTION: 

, 7 § 8 38 1 Accepts a Cosee eter and converts escape, SI, and SO characters in 

; 138 4 : the string to The resulting string is then output. 

; 136 0 38 BEGIN 

s 69S 00 

; 158 01 MAP 

; 159 0 DESC : REF S$SBBLOCK; 

; 160 8 

; 161 4 LOCAL 

; 16¢ 05 PTR : REF VECTOR evre) 

> 16 0 06 OUTDESC : VECTOR : LONGd, 

> 164 6 0 OUTBUF : $BBLOCKE264 

s 165 038 

; «166 0309 IF .TRANSTABLE EQL 0 

: 167 0310 THEN BEGIN 

; 168 P 0311 IF _ERR(LIBSGET VAC SREF (2 56) TRANSTABLE) ; , 

> 169 O31¢ R TUR N. S1GNA af TATUS)) 

: 170 031 INCRU I FROM 0 255 

: 171 0314 DO T ANSI (ec°33 2 

3 \7¢ 0315 TRANSTABLECE = %C'$': 

: 17 0316 TRANSTABLEL% ee = %C'$ 

> 174 031 TRANSTABLE(ZC'O'=2X'40'J = XC'S 

: 175 0318 TRANSTABLE He 9B8') = XC'S'; 

3; 176 0319 

s 77 83 0 

; 178 321 OUTDESCL1 

: 179 03 g CHSTRANSLATE (.. OU RANSTABLE .DESCCOSC$W LENGTUI. .DESCCDSCSA_ POINTERJ,0, 

> 180 032 .DESCCDSC$W_LENGTH),OUTBUF ) 

; «(181 0324 RETURN MAIL$PUT _OUTPUT (OUTDESC) 

; 182 0325 1 END; 


-TITLE MAILSREAD DISPLAY THE CURRENT MESSAGE 
IDENT \v04-000\ 


~PSECT SOWNS,NOEXE,2 


END 
ourvescto} = gdEsccoscsu_ LENGTH); 
00# 00000 DYN_DESC: 

| 


.B 02) : 
02 O& 00002 "BYTE 14, 2 : 
"BLKB 4 
00008 TRANSTABLE: 
-BLKB 4 
LIBSGET_VM, MAILSCMD_ERASE 
MAILSDECR NEWMAIL 
MAILSGET_ASG, MAILSGETMSG 
MAILSGET@1 
MAILSNEW-MSG, MAI PUT _OUTPOT 
MAILS$T_RD_RAB, MAILSGL“FLAG 
MAIL$B-MSGTRAN MATL L“OUTDEVOP 
MAIL Cm OUTLINES 
MAILSL~CURMSG, MAIL$Q_CURFOLDER 


H 4 
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N MA 4 
RN MAILSW 
RN MAILS. M 

MAIL 


-PSECT S$CODES,NOWRT,2 


007¢ 00000 .ENTRY MAILSFILTER_OUTPUT, Save R2,R3,R4,R5,R6 
56 00000900° 00 9 9008 MOVAB TRANSTABLE, R6 
SE F7F4 CE 9€ 0000 MOVAB =2060(SP) 
66 D 0005 TSTL § TRANSTABLE 
40 1 1 BNE 
56 DD 012 PUSHL Rs 
04 AE 0100 BF 3C 00014 MOVZWL #256, 4(SP) 
04 A F QOOIA PUSHAB 
000000006 00 FB 001D CALLS #2, LIBSGET_VM 
OA E8 00024 LBS STATUS, 1$ 
0 DD 00027 PUSHL ST 
000000006 00 01 FB 00029 CALLS #1, LIBSSIGNAL 
04 00030 RET 
50 96 DO 00031 1$ MOVL TRANSTABLE, RO 
1 04 00034 CLRL oI 
8140 51 90 00036 2 Move =sidC, (12 +CROJ 
QOOOOOFF BF 51 01 O003A CMPL #255 
3 1B 00041 BLEQU 
1B AO gh 90 00043 MOVB #36, 27(RO) 
OE Ad 2424 8F BO 00047 MOVW #9252, 14(RO) 
0098 CO 24 90 00040 MOVB #36, 155(RO) 
50 04 AC v0 00052 3$ Desc, RO 
F8 AD 60 3C¢ 00056 MOVZWL (RO). OUTDESC 
FC AD 04 AE 9E 0005A OUTBUF, OUTDESC+4 
51 66 DO 0005F MOVL  TRANSTABLE, R1 
61 00 04 B80 60 2E 00062 MOVTC (RO), a4(RO), #0, (R1), (RO), OUTBUF 
04 AE 60 0006 
F8 AD 9F 00068 PUSHAB OUTDESC 
000000006 00 01 FB O006E CALLS #1, MAILSPUT_OUTPUT 
04 0007 RET 


; Routine Size: 118 bytes, Routine Base: $CODE$ + 0000 
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-Sep- DISK$SVMSMASTER: CMAIL. SRCJREAD.B32:1 (4) 
; 241 364 NUMLINES * .NUMLINES = 1; ! Decrement number Lines page : 
: 26 » 6 END F 
: di ; UNTI NOMCINES LEQ 0 
; 245 5 MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_MOREMSG) ,0); ! Tell user there is more ; 
> 246 0388 2 RETURN; : 
3 ar 0389 ; ‘ 
003C 00000 SEQ_READ: 
«WORD Save R2,R3,R4,R5 : 0326 
55 990000006 00 9€ 90002 MOVAB MAILSGET_MSG, R5 : 
4 000000006 9E 0000 MOVAB MAILS$L_MSG_RADR, R4 : 
53 000000006 00 9E 00010 OV MAILSW-MSG_RSIZ, R3 : 
3E 8 C2 00017 SUBL2 #8, SP : 
5 04 aC OO01A OVL LINESPP, NUMLINES + 0333 
51 $ C OOO1E 1$ MOVZWL MAIL$W_MSG_RSIZ, R1 > 0341 
6E 1 3¢ 00021 MOVZWL R1, DE : 
50 64 DO 00024 MAILS$L_MSG_RADR, RO + 0342 
04 AE 0 DO 00027 MOVL RO, DESC+4 : 
02 51 Bi 00028 CMPW ik Ot + 0343 
3 1F O002E BLSSU 2 ; 
FE A140 9F 00030 PUSHAB -2(R1)CRO] > 0344 
OAOD SF 3 B1 00034 CMPW a(SP)+, #2573 3 
0 if: 0039 BNEQ 2$ F 
6E g2 A 0038 SUBW2 #2, DESC + 0345 
E DD OOO03E 2$ PUSHL SP + 0346 
FF4S CF 1 Fe 004 CALLS #1, MAILSFILTER_OUTPUT 3 
47 000000006 00 €8 0004 BLBS  MAILS$GL_FLAGS+1~ 6 : 0347 
65 0 FB 004¢ CALLS #0, MAICSGET_MSG : 0350 
41 0 E9 0004F BLBC , 6$ ; 
1D 000000006 00 04 €1 00052 BBC #4, MAILSGL_FLAGS, 4$ : 0356 
63 83 005A TSTW  MAILSW_MSG_RSIZ : 0362 
17 13 0005¢ BEQL $ F 
50 64 D0 0005E MOVL RAILSL MSG_RADR, RO : 0363 
0c 60 91 00061 CMPB Ss (RO), #1 : 
OF 12 0064 BNEQ : 
63 8B 0066 DECW  MAIL$W_MSG_RSIZ : 0371 
64 D 00 INCL MAILSL_MSG_RADR 3 B08 
3 BS O006A TSTW  MAILSWIMSG-RSIZ : 037 
D 1 006¢ BNEQ 5$ F 
65 0 FB oF CALLS #0, MAILSGET_MSG + 0375 
07 0 : 0071 BLBS RO. 5$ : 
4 00074 RET : 038 
5 07 i 3$: DECL § NUMLINES > 038 
D5 00077 4$: TSTL | NUMLINES : 0386 
AS 14 0 79 BGTR 1 : 
7E 04 00078 5$ CLRL = = (SP) : 0387 
OO7EDDCO §=—BF_EC«édiD 9070 PUSHL #8314304 F 
000000006 00 gi FB i 3 CALLS #1, MAILSGETMSG F 
000000006 00 02 FB 6 ¢ CALLS #2, MAILSPUT_OUTPUT ; 
04 00093 68: RET : 0389 
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: 49 0 90 ROUTINE ISAM_READ (LINESPP) : NOVALUE = 

: i 6 34 | FUNCTIONAL DESCRIPTION: 

: § 94 13 es dy records of current message that will fit on the current 
3 ¢ $6 ! } screen CISAM files only] 

: 256 ao 

; 57 0398 BEGIN 

BR ow 

; $9 B¢0) HOLD_DESC : S$BBLOCKCDSCSC_S_BLNI; 

: 6¢ 0408 5 LOCAL 

; 26 0404 DESC : S$BBLOCKCDSC$C_S_BLNI, 

3 264 0405 MORE FLA G, 

3 3 Bae NUMLINES; 

: 267 0408 2 INIT_SDESC(DESC); 

3 268 0409 2 IF RAIL $8_MSGTRAN EQ. MMB. C_F 

3; 269 0410 THEN smriLse mae) RAN = = we , OF ROMXDT: 

; 370 0411 IF -MAILSB MSGTRAN ROMXDT 

: 271 bole N RRICSGL opbAGSUMAIFL Q_RDHOLD) = FALSE; 

3 si¢ pelt NUML INES = .LINESPP 

; soe Rel? 7 Loop reading records until end of page or end of message 
: 276 0417 3 WHILE (IF NOT ainAlEsse i HAGSCMALF RDHOLD) 

; 277 0418 3 TH Scfbs TOMSG (DESC, AORE FLAG) 

3; 278 0419 4 ELSE (Dest pstsat TH) = Oud DescCoscsu LENGTH]; 
3 279 0420 4 DESCCD POTN NER) OLD ESCLDSCSA POINTER]: 
3 280 0421 aa Te _FLAGSCMAIF ex RBHOLD) = FACSE))) 
a RA em 

; 288 0434 ; If output is a scope, then handle form-feeds 

> 285 0426 if -MAILSGL F AGSCMAIF_V_SCOPE) 

; 286 0427 AND . DSC$W_LENG ait J] NEQ 0 

; 344 0428 THEN IF CHSREHARC DESELDSCSA. POINTER]) EQLU FF 

; 288 0429 4 THEN BEGIN 

; 289 0430 4 Desc Dscsy. LENGTH) = -DESCCDSC $4 LENGTH) - 

: 290 0431 4 DESCCDSCS$A-POINTER) = DSC$A_POINTER eri + 1; 

: 291 0432 4 IF .DESCCDSC$W_LENGTH] GTRU 0 

; 3 43 3 THEN BEGIN 

: 29 434 WOLD _DESCEDSC$W_LENGTH} = DESC DSC $4 LENGTH); 

> 29% 439 3 HOLD-DESCCDSCS$A-POINTER] = ,DESCCDSCS$A_POINTER); 
> 295 04 6 MAILSGL_FLAGSCMAIF V_RDHOLD) = TRUE; 

: 36 Bea 2 MAILSPUT_OUTPUT (MATLSGETHSG(MAILS_HOREMSG) , 0); 
: 298 0439 5 ELSE BEGIN 

: 299 9440 5 IF .MORE_FLAG 

3; 300 441 3 THEN” MAIL $PUT QUIPUTCHAILSGETHSG (MAILS _MOREMSG) ,0) 
: 01 044 ; ELSE MAILSL_M 

Be Rt ae 

: 305 0446 3 MAILS$FILTER_OUTPUT (DESC); 
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GETMSG(MAIL$_MOREMSG) ,0); RETURN); 


MORE_FLA 
ATLECE 


_VCTRLCFLI 
PUT_OUTPUT (MA 


Q 0 AND 


eG OA bed 1 4 


FLAGSCMAIF 


URN; 
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«-PSECT SOWNS,NOEXE,2 
8 


Q000C HOLD_DESC: 
-PSECT $CODE$,NOWRT,2 
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READ: 
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; Routine Size: 174 bytes, Routine Base: $CODE$ + 010A 


N . 
MAILSREAD DISPLAY THE CURRENT MESSAGE 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 Page j 4 
Hite tit 1ereeen TBs P3Sih3 MN WRAASPERS CHATS che areap.e32;1 2% <3} V 
4 3 429| 3 
04 AF gr ’ 7$ PUSHAB DESC : pee : 
FE6B tf 0 fF 0086 CALLS # pallor turer. OUTPUT 3 H 
E 01 a3 E8 00088 LBS § MAILS$GL_FLAGS+1> 9$ + 0447 ; 
OF 52 F5 OO0OBF SOBGTR NUALINES, + 0449) ; 
9C 6E £9 0092 LBC E FLAG, + 0450 ; 
7E D4 00095 8S: CLRL by + 0451 : 
OO7EDDCO §©8F DD 00097 PUSHL #8314304 : ; 
000000006 00 oI FB 0009D CALLS #1, MAILS$GETMSG : ; 
0 DD O00A4 PUSHL 3 é 
000000006 00 02 FB 000A6 CALLS #2, MAILS$PUT_OUTPUT : ; 
04 OOOAD 9$: RET + 0453 : 


ee ; 4 


B 5 
MAILSREAD DISPLAY THE CURRENT MESSAGE 16-Sep-1984 01:16:1 VAX-11 Blis 
yOLt OOD 13-808- 138 9:1 : 


Page 
4 30 DISKSVMSMAS . 


32 1 
R JREAD .B32;1 (6 


V4.0-7 
:CMAIL.S 


On 


4 
R 


“uw 
me 


; 13 peee ! GLOBAL ROUTINE MAILSREAD : NOVALUE = | : 
: 316 bi36 1 !4+ : 
; + ri 4 : FUNCTIONAL DESCRIPTION: : 
Ps . i o 
; S19 0235 1: Displays the current record and all the records in the message : 
3 0 460 1! that will fit on the screen/page. ‘ 
3 1 0461 1! : 
; ¢ Be86 1 ! INPUTS: ; 
: 0465 1! : 
: 4 0464 1! MAILSW_MSG_RSIZ = Size of current message record. ‘ 
; 5 465 1! MAILSL_MSG_RADR = Address of current message record. | ° 
$ $8 Bee ! } MAILSQ_USERNAME = Current user's username. ° 
; 328 0468 1 ! OUTPUTS: ; 
; $2 0469 1! : 
; 3 0470 1! Current message text displayed on SYSSOUTPUT. 

3 33) 0471 1 !-- 

; $38 047 $ BEGIN 

.: oe 047 

: 334 0474 LOCAL 

; $32 0475 NUMLINES; 

3 330 0476 ‘ 

3 6337 0477 ! Erase the screen first, in case there is an error in updating, it won't 

3 a35 bees be immediately erased 

; 320 0480 2 IF .MAILSGL_FLAGSCMAIF_V_ISAMJ 

>; 341 0481 THEN BEGIN 

; 342 048 IF .MAILSL_CURMSGCMMB Y EXTFNF J 

; 34 048 THEN MAILSL_CURMSGCAMB_V_EXTFNF] = FALSE 

; $e 0484 ELSE MAILSCAD_ERASE(); 

> 345 0485 3 END 

; 346 0486 § ELSE MAILSCMD_ERASE(); 

3 347 0487 2 ! | 

; 348 0488 2! If this is a ‘'‘new’’ (previously unread) message, decrement user's new 

3 $08 949 2 } mail count. Do this only if we are in our default mail file. | 

i 32 049) 3 iF .MAILSGL_FLAGSCMAIF_V_DFMSG) THEN | 

: $26 049 IF MAILSNEW_MSG() 

: 23 0493 THEN MAILSDECR_NEWMAIL (MAILSQ_USERNAME) ; | 

5 32 ot Compute the number of Lines per page 

3 57 49 MAILSGL_FLAGSCMAIF V_READ_FL] = 1; 

: 358 498 IF .MAICSGL_FLAGSCMATF_V_TSAM) 

; 359 499 3 THEN BEGIN , 

3 0 0500 MAILSINFO_I_MSG(0,0,DYN DESC); 

: 361 501 MAILSPUT_OUTPUT(SDESCRIPTOR(''4e #!8<!UL!>!3e !20AS!#® !AS"), 

3 ; 206 -MAILSL_MSG_NUM,DYN pest 

: 36 30 44-.MAICSQ_CURFOLDERCOSC$W_LENGTHI, | 

. ¢ she en MAIL$Q_CURFOLDER); 

; 366 208 ELSE MAILSPUT_OUTPUT(DESCRIPTOR('!#* 'AS #!UL"),! Display file name and 

: 367 50 72=.MAIL$SQ_MSG_FILECOSC$W_LENGTHI, 

: 8 208 MAIL$O_MSG_FIL ! message number 

; 369 50 MAILS MSG_NUMS : 

: 370 0510 2 NUMLINES = MAX(.MAILSL_OUTLINES-5,1); 


DISPLAY THE 


If . 


CURRENT MESSAGE 


MAILSGL_FLAGSCMAIF_V 


ISA 
THEN ISAM ty pete ty 


ELSE SEQ_READ(.NUMLIN 


RETURN 
1 END; 
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000000006 
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6E 00000048 8&F 
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5 
ibs -1984 01:16: VAX=-11 Bliss=-32 V4.0-74 
1a-8ep-19 4 03:18:43 DISKSVMSMASTER: CMAIL é 


eASCIIT \I6 MIB<IUL!>!3* !20AS!#* !AS\ 


[LONG 29 
“ADDRESS P.AAB 


“ASCII. \'#® !AS MEUL\ 


«LONG 
«ADDRESS P.AAD 


«ENTRY tiara 


M. 
MOVAB MAIL 


Save R2 


R3,R4,R5,R6,R7,RB 


L_MSG , 
MOVAB MAILSQ~CURFOLDER, RS 
MOVAB DYN_DESC, R4 
MOVAB KA 
MOVAB MAILSGL_FLAGS, R2 
BLBC  #MAILSGL-FLAGS, 1$ 
MOVL MAILS$L_CURMSG, RO 
BBC 10TRO), 1§ 
B1¢B2 6, 10(RO 


NEWMAIL 
A 


RB 

CALLS #0, MAILSCMD_ERASE 

BBC #4, MAILSGL_FLAGS+1, 3$ 
CALLS #0, MAILSNEQ_MSG 

BLBC R 

PUSHAB MAIL$Q_USERNAME 

CALL #1, MATLSDECR 

BISB2 #64, MAILS$GL_FLAGS 

BLBC MAILSGL_FLAGS, 4$ 
PUSHL R4 

CLRQ -(SP) 

CALLS #3, MAILSINFO_I_MSG 

MOVZWL MAILS$Q_CURFOLDER, -(SP) 
UBL3 (SP), B44, (SP) 

PUSHL R4 

PUSHL MAILSL_MSG_NUM 

PUSHL 

CALLS #5, MAILSPUT_OUTPUT 
PUSHL MAILSL_MSG_NUM 

PUSHL R 

MOVZWL MAIL$Q MsG_FILE. -(SP) 
UBL3 (SP), ¥72,7(SP) 

PUSHAB 


. p 
TSRCJREAD.B32;1 9 
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dD 5 
MAILSREAD DISPLAY THE CURRENT MESSAGE 16-Sep-1984 01:16: VAX=-11 Bliss-32 v4.0-74 p 14) 
tive Weasee TSBs PhS hs PTA Stee heron eRe swean.eso-1 2%" «dé 
? 4 F A ALLS #4, MAILS$PUT_OUTPUT ; | 
50 000000006 th i cS i 5$ SUBL 3, MAILSL_OOTLINES, RO + 0510) 
50 1 D9 AD VL RO ; 
0 E BO 6$ BLBC © MAILSGL_FLAGS, 7$ : O51) 
DD 0008 PUSH LINES + 0512. 
FESC CF FB BS CALL #1, ISAM_READ ; 
50 DD 00088 7$ PUSHL y LINES + 0513) 
FDCO CF FB Bp ALLS #1, SEQ_READ F | 
04 C ET ; 0516) 


; Routine Size: 195 bytes, Routine Base: SCODES + 01F4 


5 
MAILSREAD DISPLAY THE CURRENT MESSAGE 1bsep-1984 01:16:21 X=11 Bliss-32 v4.0-742 
rae tts ; 3: 


14-Sep-1984 42:3 bis SKSVMSMASTER: CMAIL.SRCJREAD.B32; “hy 
78 0517 1 END 
79 82] 18 O ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 3! NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, FON ear ieness 
SCODES 6 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


eoeeeooe Symbols weececcen Pages Processing 

File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 13 0 581 00:00.7 
“$255$DUA 8: MAIL.OBJJMAILDEF .L 32; 1 457 10 2 26 00:00.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:READ/OBJ=OBJ$:READ MSRC$:READ/UPDATE=(ENH$: READ) 


Size: 635 code + 80 data bytes 
Run Time 
Slessed. i 00: 36.5 
Lines/CPU Min: 547 
,onenes/PE-in: 25082 

ry, Used: 98 rages 
— ation Complete 
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